function f = mktshares(deltaold,expmu1,QI,ind_market)

expon=repmat(exp(deltaold),1,size(expmu1,2)).*expmu1; 
denomi=(expon'*QI)'+1;      
denom=denomi(ind_market,:);    
                            

f=mean(expon./denom,2); 
